home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.28 / unit_prtchk / unit_prtchk.p < prev    next >
Text File  |  1995-04-23  |  631b  |  29 lines
  1. unit PrtChk;
  2.  
  3. {------------------------------------------------------------------------}
  4. { Unit PrtChk - 1994 by J.Stötzer. Enthält nur eine Funktion, die
  5.   prüft, ob der zum Drucker bereit ist. So kann man (frau auch :) den
  6.   nervigen »Printer Trouble ...« Requester sparen                        }
  7. {------------------------------------------------------------------------}
  8.  
  9. INTERFACE
  10.  
  11.   function CheckPrt:byte;
  12.  
  13. IMPLEMENTATION
  14.  
  15.   function CheckPrt;
  16.  
  17.   var CIAPtr : ^byte;
  18.  
  19.   begin
  20.     CIAPtr:=Ptr($bfd000);
  21.     CheckPtr:=(CIAPtr^) and 3;
  22.   end;
  23.  
  24. {------------------------------------------------------------------------}
  25.  
  26. end.
  27.  
  28.  
  29.